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ELEKTRONIK 


Der Verfasser übernimmt keine Haftung, die sich aus der Be- 


nutzung dieses Programmmaterials oder Teilen davon ergeben. 
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"GEOMETRISCHE REIHEN” 


Der Summenwert S, einer geometrischen Reihe mit n Summanden und 


dem Anfangsglied a, berechnet sich nach der Formel 


n-1 
Sn = a, I 


Nach Eingabe von q und zwei weiteren beliebigen Werten wird der 


fehlende Wert berechnet und abgespeichert. 


Das Proqramm geht davon aus, daß der Speicherinhalt des fehlenden 
Wertes Null ist und fragt bei (1) und (3) zunächst, welcher Wert 


berechnet werden soll. 


Aus der oben angegebenen Formel ergeben sich die weiteren benö- 


tigten Formeln: 
In (Enla!) +) 
rt a ed 


- ln q 
a] = Sn 
gqn=1 
g -1 


Die oben angegebene Formel läßt sich nicht nach q auflösen. Zur 
Berechnung von q wäre daher eine Iterationsformel nötig, und die 
an sich wünschenswerte Erweiterung des Programms (Berechnung ir- 
gendeines beliebigen fehlenden Wertes) ist aus Platzgründen nicht 
möglich. 


START 


EINGABE 
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REGISTER 


Ka, ra 


Rı a Rz; 
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41 
42 
AA 
45 
46 
H 47 
AB 
49 


HP-25 Program Form 


Titel ___ "GEOMETRISCHE REIHEN” _ 


BEISPIEL. 


Berechnen Sie den Summenwert der durch folaende Zahlen 


ten geometrischen Reihe: 


a, = 1,5 q=4 n = 10 
Lösung: 
Tasten Anzeige 
1,5 STOo1 
4 sTo2 
10 STO 3 R/S 524287,4996 


festgelea- 


"WERTETAFEL BEI VORGEGEBENER SCHRITTLÄNGE h” 


Das Programm berechnet die Funktionswerte einer beliebig defi- 
nierbaren Funktion nach Eingabe eines Anfanyswertes (linker Rand- 
punkt des Intervalls, für das die Tafel aufgestellt werden soll) 


und einer Schrittlänge h. 


Die Funktion muß ab Programmspeicherzeile 19 definiert werden. 
Dabei ist das Argument im Anzeigeregister X und in Ru. Als letz- 
ter Programmschritt ist GTO 06 einzugeben. 

In (2) erfolgt der Sprung nach Zeile 19 um die Definition von 
f(x) zu erleiehtern und der Rückspruna nach Zeile 06. 

In (4) wird 1099 +f£(x) ins Y-Register gebracht, f(x) bleibt im 
X-Pegister für die Ausgabe von f(x). Im allgemeinen ist daher 
x?/y und die Sprunganweisung nach Zeile 13 wird ignoriert. 

Falls aber ein x-Wert außerhalb der gewünschten Folge eingegeben 
wurde (x ENTER? R/S), ist die Bedingung x=y erfüllt und es er- 
folgt der Sprung nach Teil (2) ohne daß x durch x+th ersetzt und 
die Folge der x-Werte gestört wird. 


HALT zur wahlweisen 
Eingabe eines Wertes 
w außerhalb der Folas 


x+tih 


EEGISTER 


I" x 


soil 
2ı | xaY 


1.03 n. 23 | STO_O 


f PAUSE 
3.19) GTO_19 


33| EEX 

091 9 

o)| 9 

21 | Xıy 

Sl) + 
£FLASTX 


2400| RL Oo 
GrO._04 


HP-25 Program Form 


Tirei ___WERTETAFEL BEI VORGEGEBENER SCHRITTLÄNGE_h” .—.. Seite 


ANWEISUNG WERTE TASTEN 


Programm eintasten Er Er a N 
Funktion £ definieren | LI IL I]. 

(x-Wert in X und R,) ae He] 
Abschluß mit . „Sees. 
Vorbereitungsschritt & [= Jerrem IL JE 
Schrittlänge speichern Br R/S EEE | EEE EEE | 


Berechnung von £(x+h) . u | R/ S Fee: En 
Für den nächsten Funk- 5 | ee Eee ee zu 
tionswert innerhao | | Er re en | 

der E EOLGR. Behen, Sie m. a | el 
Beliebiger Funktions- Se L_I0 IL JE] 
wert X außerhalb der mer BE | 
Reihe I ea ce en ne 


Weiter bei i oder u a IM ee ERRNE| BERE | EREE | US 


\ Für eine: neue: } Funktion a 2: 
A gehen sie m nach 2 ee R [IL IE JE I 


BEISPIEL: 


Stellen Sie eine Wertetafel im Intervall [-2, 2] mit der SchritL- 


länge h=0,5 auf. Die Funktion sei y=(x+1)? 


Lösung: 
Programm eintasten und ab Schritt 19 bis Schritt 22 eingeben: 
1 + g x? GTO 06 rechten Schieber auf RUN 
Vorbereitungsschritt f PRGM =2,T. 058 
Tasten Anzeige Ausgabe 

R/S -2 1 

R/S -1,5 0.25 

R/S 1 0.00 

R/S -0,5 0.25 
-0,75 1 R/S -0.75 0.06 Werte außerhalb 
— T R/S -0.25 0.56 der Reihe 

R/S [0] 1.00 


R/S 0.5 2.25 U.S.W. 


= 11. 


"HORNERSCHEMA FÜR POLYNOME BIS ZUM GRAD 7” 


Formt man eine ganzrationale Funktion, z.B. y=2x°-4x2+5x-7 um in 
y= (2x?-4x).x+5x-7 
= ((2x-4) -x+5)-x-7 
so hat man bei der Berechnung von f(x) statt acht Rechenoperatio- 
nen nur sechs durchzuführen. Weiterhin wird das Potenzieren, was 
bei negativem x zu einer Fehlermeldung führt, vermieden. Dieses 
am Beispiel erläuterte Verfahren heißt Hornerschema und ist im 


Programmablaufplan genau dargestellt. 


Die ständig sich wiederholenden Multiplikationen mit x werden mit 
Hilfe der Stackregister auf einfache Weise durchgeführt. Durch 
dreimaliges Drücken der ENTER-Taste wird x in alle Stackregister 
kopiert und steht ständig für die Multiplikationen zur Verfügung. 
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START 


EINGABE 


4. 
AlsAgr. «1,97 


y:=y'xta, 
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REGISTER 


HP-25 Program Form 


Titel _ HORNERSCHEMA FÜR POLYNOME BIS ZUM GRAD 7" 


TASTEN 


ANWEISUNG 


Programm eintasten 
Vorbereitungsschritte 
Koeffizienten spei- 


chern 


x- Wert eingeben 
Zur Berechnung des 
nächsten Funktionswer- 


tes gehen Sie nach 4 


BEISPIEL: 


Berechnen Sie den Funktionswert von y = 6x°-3x7+4x?-7 an der 


Stelle x=2 und x=-1,5 


Lösung: 
Tasten Anzeige 
f PRGM f REG 6 sSTO5 
-3 sTOo4 
1 sTo2 
-7 sTtoo 
2 R/S 141 
-1,5 R/S -65,50 
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"NULLSTELLEN GANZRATIONALER FUNKTIONEN BIS ZUM GRAD 4” 


Das Programm berechnet Nullstellen einer ganzrationalen Funktion 


von höchstens 4-tem Grade nach dem Newtonschen Näherungsverfah- 


£f(xo) 
& = „EiRol 
ren xX=Xo fr (xo) 


Funktionswerte und Ableitung werden nach dem Hornerschema be- 
rechnet. Dabei wird ausgenutzt, daß 

£'(x,) = dayxd + 3az3xX2 + 2ayx, + a 
die Ableitung von 


2 
[e) 


m 4 3 1 
£(x,) = ayx, + a3X, + ax, ray X, ra, 
ist. 
Durch die Anzeige von x. (Programmschritt 42) läßt sich die ra- 


sche Konvergenz des Verfahrens gut verfolgen. 
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REGIS TER 


Ro au R4 ar 
Fo 
Be ln 
SE 


EANGEBE TEIL | ZEILE T copE TASTEN 
VE a 
ai 0 € WU. 2 _ VITLÄILL 
ol 24 07 | RCL 
02 3ı |? 
03 3ııt 
Berechne on af 
05 24 04 | RCL 4 
' GG o4| 4 
Re 07 6x 
[9123 6 Ix 
09 2A O3 | RCL I 
Berechne ! 10 933 
11 A|ıx 
t2 Sılı 
£(30) 13 six 
1A 24 02 | RCL 2 
15 0212 
16 st |x | 
17 SI]*+ 
18 sı|x 
19 2A OL | RCL 1 
20 sı) + | 
I _.L.21 | 2305|sro | 
2? 34 | CUX 
ar 2A 04 | RCL A 
2A Sı)x 
25 24 O3 | RCL I : 
26 51 | + 
-..-.- [amzeiae von x, ’ 27 Fix 
falls gewünscht i 2 402 | RCL 2 
29 Ss] + 
Rio) 61 |x 
7] ?7Aa ol | RCHA 
32 sıl+ 
33 
34 
REESBEEN, NER: 1: RER | 
36 
3 37 
38 
SE es 
..40_, 
LT EN 
2 42 
s an 
45 24.06 | RCL 6 
A6 14 Al | xey 
12 ..47__ | _13. 01 | gro 01 
7 4R | 24 O7 | RCL 7 
49 __ 13.00 | Go _00) 
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HP-25 Program Form 


Tre N "NULLSTELLEN GANZRATIONALER FUNKTIONEN” 


Progra nta ste ee nsckh 
Vorbereitungsschritte | oe A 


Genauigkeitsschranke _ en. [stol[_ 6 I I] Ir 
4 |startwert stell» ID] 


5 |Programm starte u u be, j ER 7 | | RE | |nurıs telle 


6 weitere Nullstelle er BE en 
Versuc hen Sie nit 5 ze Br Er Be u 
. deren Sta artwerten bei 2 w IL IE IE] 
a) diese zu ermitte eln Rn ee re re | 


BEIS L: 


Berechnen Sie die positive Nullstelle von y = x?+2x?2-x -2 


mit einem Startwert x,=2 und £=0,01 


Lösung: 
Tasten Anzeige 
-2 sto oO 
-1 STO 1 
2 sTo 2 
1 STO 3 
0,01 STO 6 
2 STO 7 R/S 1,00002 


Nach fünf Durchgängen bricht das Verfahren ab und 1,00002 wird 
als Nullstelle angezeigt. 
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"NULLSTELLEN VON FUNKTIONEN" 


zu einer Funktion f(x) sei ein Intervall (Kor Xı) bekannt, in dem 
die Funktionswerte am Rand verschiedene Vorzeichen haben. Das 
Programm ermittelt durch fortgesetzte Intervallhalbierung und 


Bestimmung des Vorzeichens von a ein neues, halb so lan- 

ges Intervall, das die Nullstelle enthält. Die neuen Intervall- 

grenzen werden durch (6) bzw. (7) festgelegt. 

Das Verfahren bricht ab, falls eine Stelle x mit £(x)=O erreicht 
wird (3) oder die Genauigkeitsschranke e unterschritten ist (4). 
Es werden beide Intervallgrenzen des Intervalls ausgegeben, das 

die Nullstelle enthält. 

Für stetige Funktionen muß das Verfahren nach dem Zwischenwert- 


satz der Analysis konvergieren. 


=,20= 


REGISTER 


R, x R, 
IR x R 
1 ] 5 
R, x Re 
R; R, [3 
Ku han a Ga Br - 
BE ZEILE nn TASTE! 
ZZ, NL 
ol 24 o0| rcı, 
2 24 01 
EINGABE 03 sıla 
04 021 2 
us. 05 | = 
_-...4...06_._.1..23.02|,STO_2__ 
[ | 07 
oß 
09 
10 
11 
12 
13 
14 
15 
16 Frei 
2 17 für 
18 Ex) 
19 
20 
21 
2 
23 
24 
| 25 
| 26 
h 27 
BERN 28 a ea 
nz 29 15 71 | q x=0 
30 13 48 | sro _48_ 
[199° 31 | 24 07 | Rcr 7 
3? 24 o1 | ren 1 
33 243 00 | RCL O 
4 34 a|- 
35 1503| qg ABS 
36 13 AL | f xy 
L 2... .32._..1_13.48. 16910 48 
38 22 |rı 
8 39 22|Ra 
40 15 51 |qg x20 
41 13 45 | To 45 
TR Morlnen 7 
6 43 23 oı |sto ı 
a4. 1. 33.01 |gro_ol 
45 24 02 | RCL 2 
7 46 23 co |sto © 
l__. 4..47._..|.13_21 |.sro_oll 
3 | 48 24 00 | ren 0 


49 24 ot IrRch 1 
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Titel ___"NULLSTELLEN.. VON_EUNKTIONEN”. ..... 


Vorbereitungsschritte 
f(xo)> Oo 

£ix)< [e) x 
Genauigkeitsschranke 


Programm starten 


Nullstelle liegt im 


BEISPIEL: 


Berechnen Sie die positive Nullstelle von y= 4x? - 3x? +5x?2-7x -8 
im Intervall (1;1,5) 

Mit Hilfe des in dieser Sammlung angegebenen Hornerschemas ermit- 
telt man f(1)=-9 und Ff(1,5)=2,875. Also ist x,:=1,5 und x; :=1 


zu setzen. 


Lösung: 
1) Nach Eintasten der Schritte Ol bis 06 tastet man gemäß Horner- 


schema ein: 
4 xI- a 5 + x 7 - x 8 - GTOo 29 


und SST drücken bis Programmzeile 28 erscheint; danach den Rest 
des Programms eintasten. 

Schieber auf RUN stellen. 

£ PRGM und f REG drücken 


2) Tasten Anzeige 

1,5 sSTO oO 1 STO 1 
0,001 STO 7 R/S 1,424805 
XrY 1,425781 


Eine Nullstelle liegt im Intervall (1,424;1,426) 
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"SIMPSONSCHE REGEL" 


Das Programm hat yegenüber dem in der Sammlung von HP angegebe- 
nen den Vorteil, daß die Funktionswerte nicht einzeln eingege- 
ben werden müssen, sondern im Programm selbst (17 Schritte zur 


Definition von y=f(x)) 


Die Simpsonsche Regel lautet: 


b 
Bi £ix)dx = 8 (yo+Ayı + 2y2 +..-+ 2yn-2 + AYn-ı + Yn) 
a 


Dabei muß n eine gerade Zahl sein, y,:=atih ‚, h:= 


Die Lösung sei mit \L bezeichnet. 


In Teil (8) ist )_:=yo gesetzt, dann müssen abwechselnd das 
4-fache bzw. das 2-fache des nächsten Funktionswertes addiert 
werden. Das wird in Teil (6) dadurch gelöst, daß eine Variable 
I eingeführt wird, die die Werte +1 und -1 annehmen kann und 
abwechselnd das (3+1)-fache bzw. (3-1)-fache von f(x) zu ) ad- 
diert wird. 

Beim letzten Schleifendurchlauf erfolgt in (9) Addition von Yyr 


Multiplikation mit a und Ausgabe des Näherungswertes. 
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START 


EINGABE 
a b 
n h 


Das Abspeichern in 
Teil (1) und (2) 
geschieht manuell 


STOP 


REGISTER 


Rz 


N 


OR EIER PERL N 


24 = 3a 02] rc 2 
5 25 1571| 9 x=0 
I—_.|. 26.1.1232. 231cm a3, 
27 033 
28 2A 07 | rer, 7 
20 32 | cus 
n 30 2307 STO 7 
a al|- 
32 24 05 | RCL 5 
33 6x 
34 |23 51 06 | stro+r6 
[ TERn3s2 |, Deriotlen 
36 1?3 41 02 | sto-2 
7 37 24 03 | RCL 3 
3 23 51 04 | sto+a 
ai 9 13 01_| GTO_ 01 
10 24 05 | rcL 5 
8 al 23 06 | sTO 6 
Be I: 42 | __13.35 N FT0235 
s 43 2a 05 |RCL 5 | 
ern 
45 24 03 en 
| 46 03 a 
ke) 47 Aa f 
an |23 61 n6 | stox6 | 
49 24 06 | rc 6 


HP-25 Program Form 


Tireı __"SIMPSONSCHE REGEL” 


ANWEISUNG WERTE TASTEN 


- speichern u | | re ER | ern 
BR: Schalter auf RUN ‚ ’ LLC] ES 
stellen 2 a eg. 
6 Vorbereitungsschritte ENTE 
a 


7 |rxogram starten | Rs) | | jimtegrar- 
8_|rür ein neues Integral|__ [| L _]L__]L] 


gehen Sie nach6 Er [| 


BEISPIEL: 


Es ist I= [ Hr dx nach der Simpsonschen Regel für n=4 zu 
o 


berechnen. 


Lösung: 
1) Man tastet Schritt O1 ein und ab Sclıritt O2 
g x? 1 + g 1 GTO 19 und dann 


SST drücken bis Zeile 18 erscheint. 


Dann den Rest des Programms eintasten. 


2) Eingabe per Hand: 


Oo sTo oO oO STO 4 
1 sTO 1 1 SID 7 
4 sTOo 2 
0,25 STO 3 
3) Starten R/S Anzeige: 0,785392 


Der Wert des Integrals läßt sich auch exakt berechnen: 


[sr dx = [arc tan x], = 0,785898 


Drücken Sie g RAD 1 g tan!) 
Die Übereinstimmung mit dem theoretischen Wert ist alsoschon 


für n=4 sehr gut. 
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"DETERMINANTE EINER 3x3 MATRIX” 


Das Problem besteht darin, daß nur B Datenspeicher für die 9 
Koeffizienten der Matrix zur Verfügung stehen. Es wird dadurch 


gelöst, daß einer der Koeffizienten im X-Register gespeichert 


wird. 
a, b, €, 
Die Speicherung der Koeffizienten der Determinante D=|a, b, cz 
a3 by © 


erfolgt so, daß eine möglichst gute Übereinstimmung mit dem Ta- 


stenfeld des HP-25 erreicht wird, c, bleibt im X-Register. 


Die Berechnung der Determinante erfolgt durch Entwicklung nach 
der letzten Zeile von rechts nach links. Dadurch wird der im 
X-Register gespeicherte Koeffizient c;, nur einmal am Anfang der 


Rechnung benötigt. 


Mit Hilfe dieses Programms lassen sich gemäß der Cramerschen Re- 
gel auch Gleichungssysteme mit 3 Variablen lösen, wobei die Zwi- 
schenergebnisse mit der Hand notiert werden müssen. 

Die Lösung des Beispiel 2 dauert nach Eintasten des Programms 


etwa zwei Minuten. 
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START 


EINGABE 


Fer. Torten” 


DR ® 


a; bı cı x 
a2 = ©2 03 


All x 
all - 
24 00| RCL O 
6l| x 
51] + 


AUSGABE 


| j 
43 
44 
45 
AG 
47 
48 
WIR RSS. AIR VERE-ERR RSRREREN) 


HP-25 Program Form 


Titeı __'DETERMINANTE EINER 3x3 MATRIX" 


ANWEISUNG WERTE TASTEN 


I [Programm eintasten | | Er BE 
. 2 Determinante speichern . a [ste Ja] ] | E 


"3 |oeterminante berechnen Rs I |] 
a |rür eine neue Rechnung en [ 1 [ N | 5 
n gehen Sie nach 2 Bu | [ IL IL I 


BEISPIELE: 


1. 


Berechnen Sie den Wert von D= |- 


Lösung: D= 76,00 


Lösen Sie das Gleichungssystem 


xt y- ze] 


2x + 3y-3z = O 
6 


I3x-2y+ z = 
Lösung: 171-1 
—ToD=|2 3-3| = -1 
3-2 1 
11-1 
zu 
x = 2 = = = 3 
y=5 
z=7 


31= 


2.7 dı 32 
3 0,5 5 
oO -4 3 
1 

D.= lo 
6 

1 

D,= 12 
3 


"TEILPUNKT EINER STRECKE" 


=> 
Das Teilverhältnis r ist definiert durch AT =T7T TB 


{6} 


Zwischen den Ortsvektoren von A, B und T besteht dann die Bezie- 


a+rb 
I+T 


hung += 
In dem Programm werden die Stackregister ausgenutzt, um auf be- 
queme Weise den Vektor a einzugeben und abzuspeichern. Dann hält 
der Rechner zur Entgegennahme der drei Komponenten von & und des 
Teilverhältnisses 7,um dann die Werte abzuspeichern und die Rech- 
nung durchzuführen. 

Die Ausgabe der Komponenten von # erfolgt über die Stackregister. 
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START 


EINGABE 
a 
SPEICHERN 
a 


ar Lrarr zur Eingabe von 6 wndrT 
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RFGISTTR 


Re + Ry bi 
Fe 
ee re TOO 
» u Rome 

I = ER TENREEN a grginge en 


VIA N 


12 23 05 | STO 


13 22 


R 
14 | 23 Sa es 4 


a WER; or] 


16__|23 51 07 | sto+7 


nn Be: 51 oT Rcı 


[e) 
18 24 06 | REL 6 
19 el|x 
6 20 24 03 | RCL 3 
al sı)+ 
22 2A OT | REL 7 
ala | 
24 24 00 | RCL O 
5 


HP-25 Program Form 


[3 " 
Titel = TELEPUNKT ‚EINER STRECKE Yu: Fu Seite 


Be ee | 
j Programm eintasten | 
& eingeben "I a: a Mr] un 


TASTEN 


Vorbereitungsschritt 


| una z eingenen | 5» Er LI] _ 


5 Komponenten des si- | [RI] [ Il Il (0 E 
lungsvektors A arufen | OOo TE ER || Ac= 1 5 
Für eine neue Rechnung En | | a EB | 


ua nn ee 
j Ei en 
= 2 En 


Er 
N 
_ re Be re en z 
ER N Sc | | see ae 
a ae I 
IN ER u re a re 
nn BOSSE EEE EEE SEEN | Fe 


Durch welchen Punkt wird die Strecke AB mit A(-5/2/-3) und 
B{-2/11/9) im Verhältnis 7 = 1:2 geteilt? 


Lösung: 
Tasten Anzeige 
151 21 -3 R/S 
-2t ı1t 910.5 R/S 4 

RI 5 

Rl 1 
Ergebnis: 


Der Teilpunkt ist T(-4/5/1). 
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"HESSESCHE NORMALENFORM" 


Das Programm berechnet die Hessesche Normalenform 
HNF: wer =d 
einer Ebenengleichung, die in der Parameterform 
PF: ga +AM + um 
vorgegeben ist. 
Falls d>O, zeigt #° vom Ursprung auf die Ebene; falls d«O soll- 


te man die Vorzeichen von d und den Komponenten von w' wechseln, 


um die übliche Normierung zu erreichen. 


In (1),(2) und (3) wird zunächst ein Normalenvektor berechnet 
U2V37V2U3 
nach 7% =\-uıv3+tvyu3 
U}V2-VıU2 
und in (4) dessen Länge berechnet. In (5) ergibt sich m durch 
Division von m durch die Länge von". Nach Eingabe von a kann in 


(7) d berechnet werden und in (8) die Ausgabe in den Stackregi- 


stern erfolgen. 


236.5 


START 


EINGABE 


Aw, MD 


AUSGABE 
xın 
Yınm 
2: 


REGISTIER 


[m 


23.06 
24 0] 
24 05 
6l 
2a 
24 02 
6 
al 


4. 23.01] 570,7 | 
1502| qg a 
2A 06) RCL 6 


I 

Q 

[= 
wel 


15 02] q x? 
sıl + 
24.00) RCL|_O 
1502| ax 
sıl a 
...14 02| £®_ 
23 71 00| STO 
23 71.06 STO+ 
23.71.07| S10+7 
_ .1ALR/S 
24 07| RCL 
ll x 
21, XrY 
Am 24 O6| RCL 
7 Al G6I| x 
42 St) + 
43 24 xXiIY 
44 2A CO| RCL © 
15 61l| x 
nee 46:1 | sıl + 
| 47 24 O7| RCL 7 
BD} 43 24 06| RcL 6 
19 _24 00]. Rc1._O 


=: 


HP-25 Program Form 


Titel ___HESSESCHE NORMALENFORM" _ _____ 2 gie 


Inn. ANWEISUNG WERTE TASTEN | anzeice | 


1 Programm eintasten 


2 | m speichern 


3 #2 speichern 


4 Programm starten 


5 oa eingeben 


und starten 


6 Werte abrufen 


7 Für eine neue Rechnung 


gehen Sie nach 2 


BEISPIEL: 


1 (6) 1 
Berechnen Sie die HNF von E: e- 2): ( 2)» u(o) 
1 1 


3 


Lösung: 
Der Rechner liefert in den Stackregistern: 
X: n,= 0,67 
Y:ı n=-0,33 
2: n3=-0,67 
T:d=-2 
wir wechseln überall die Vorzeichen, damit d>O erfüllt ist und 
(23 
erhalten: E: 0,33 jee = 2 
0,67 


als Hessesche Normalenform der Ebenengleichung. 


an 


’ 


"SCHNITTGERADE ZWEIER EBENEN’ 


Gegeben seien die Gleichungen zweier Ebenen 


E]: Wwef -k=0 und EB:g4=a+ As + 10 mo 


Falls w senkrecht ist zu © und zus ,„ so ist Eı parallel zu Ey 
und es existiert keine Schnittgerade. Sei die Bezeichnung so ge- 
wählt, daß DoM #0. 


Die Gleichung der Schnittgeraden berechnet sich dann folgender- 


maßen: 
g: m+la +1w +40) -K =o und daraus folgt 
ı_kımoa - ee ' 
Ant | a) 
ARE RPEE ae 
ı=r ı=s 


Die Konstanten werden mit r bzw. s bezeichnet und durclı Einsetzen 
in die Gleichung von E, folgt: 
g: £ = a+ (r+s u) + a0 
= (a+rso) + a (sm+M0) 
ad — 


ı= 77 
= q + A m 
Das Programm erfordert wegen der beschränkten Speicherzahl zwei- 
maliges Eingeben von a, und. Da die Komponenten der Vektoren 


aber aus dem Stackregister abgerufen werden, ist das Programm 
recht bequem zu handhaben. 
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REGISTER 


m— N en 
Ry  K 4 Rz acAar Is 


START 


TEIL lz D CODE }ITASTEN 
a rel] PR et NE eben 
--- -- Axeingenen ns oa 77/1... VILLE 
—-— — {mweingeben R/S STO 5 ol 2403| RCL R 
-- - - -— -oeingeben R/S STO 6 22 61|x 
03 21 | XrY 
0A 24 02 | RCL 2 
05 el |x 
1 O6 SI] + 
berechnen 71 ZU RrY 
08 24 AL | RCL I] 
- - - -— - {70 12 drücken „I g1|x 
10 Si + 
____..11. _1__13 00) gro 00 
12 24 oA| Rcu 4A 
13 23 a1 00| 819-0 
15 24 05 | RCL 5 
ee [Haut zur Fingabe von = ae k = srord 
ıa 32| cens 
19 23 04| sta 4 
& speichern 3 20 23 05| sro 5 
al 2306| STO € 
—.|..22_.|.... 74| B/8 
ee kart zur Eingabe von a ee 
zu: aa z 24a 22| RI 
A 25 23 02| STO 2 
26, 22| Rl 
27 23 ol1| stol 
Kassel. 24 RIES r, 
29 23 61 06| STOx6 
39 2400| RCL O 
u er [HALT zur Eingabe von m 31 Gılx 
32 ?3 51 03| STOr? 
23 22| RL 
34 23 6105| STOx5 
35 24 0060| RCL O0 
5 36 Gt|x 
37 23 SL O2| STOr2 
38 22| Ri 
39 23 61 o04| STOxA 
40 24 00| RCTO 
41 \ 61| x 
ß 42 23 51 ol | stort 
a Ma ARE. 
44 23 5106| STOHG 
ı 45 22| Ri 
r AB 23 5105| STOHFS 
1... 49 | 22| Ri 
1R 23 51 0A) STO1A 
L__..1.49 _L._13 oel_sro_m 


HP-25 Program Form 


Tite ___SCHNITTGERADE EınEy” 


& eingeben 


und &oArv speichern 


© eingeben 


und 0m speichern 


0 eingeben 


nd Re mw speichern 


Er re 


aktoren berechnen 


& eingeben 


AR eingeben 


Aaweingeben 


Ergebnis abrufen x 
_ [re 2 I 1 | 
| rel I I | 


Für eine neue Rechnung 


gehen Sie nach 2 


BEISPIEL: 


Gegeben sind die Ebenen 


1 2 -1 ' 
Ei: ee -21=0 E,: = ®) + ( ) zZ 
1 1 1 - 


Gesucht ist die Gleichung der Schnittgeraden. 


Du 


Lösung: 

Anweisung Tasten Anzeige 
Nr. 2 21 sTo 0 LT: SEO. 2 sto 2 1 sTOo 3 

Nr. 3 2r 3t 1 R/S STOo 4 9.00 
Nr. 4 -ı17r 31 I. R/S STO5 6.00 
Nr. 5 41 51 -2 R/S STO6 12.00 
Nr. 6 GTO 12 R/S =2«00 
Nr. 7 2tr 37 1. R/S 2.00 
Nr. 8 -1r 3f 1 R/S -2.00 
Nr. 9 ar 5t -2 R/S 4.00 
Nr. 10 Zum Abruf des Ergebnisses die entsrrechenden Spei- 


cherinhalte abrufen. 
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"BINOMIALVERTEILUNG B„.„(X=i) UND B,„.„(isXsj)" 


n;p n;P 
Führt man ein Zufallsexperiment mit zwei möglichen Ausgängen 
(Treffer und Niete genannt) n-mai durch, so spricht man auch 
von einer Bernoullikette der Länge n. 

Sei p die Wahrscheinlichkeit für Treffer, so ist die Wahr- 


scheinlichkeit, daß genau i Treffer erzielt werden: 
Bn:p(X=i) = n pigqn-i 
n;p i 
Für die Berechnung der summierten Wahrscheinlichkeiten wird die 


folgende Rekursionsformel benutzt: 


Ber S _;,, ni p 
Bn;p(X=it1) = Bn,p (Xi) IITgq 


In der Schleife (2),(3) wird der Binomialkoeffizient berechnet 


(7)- 2 al 23 ..., und als B bezeichnet. Hierfür wer- 


den In (1) zunächst die beiden Variablen n und i definiert, so- 


nach 


wie B wegen der fortgesetzten Multiplikationen auf 1 gesetzt. 
Die Setzung L=O ist im Programm nicht nötig, da der Speicherin- 
halt von R, zu Beginn Null ist. 


In (4) wird B zunächst mit pi multipliziert, q berechnet und 
dann der Quotient BR sofort mit p bezeichnet, weil er für die 
Rekursionsformel gebraucht wird. Dann erst wird B mit qn-i 
multipliziert und Bn;p(%=1) angezeigt. 

In (8) erfolgt die Berechnung des nächsten Summanden nach der 
angegebenen Rekursionsformel. Vor der Division mit i+1 erfolgt 


die Erhöhuny der Schleifenvariablen i:=i+1. 
Bei der Berechnung von Bn;p(X=i) ist j=0O gesetzt. Das Programm 


hält nach der Berechnung des ersten Summanden, j braucht also 


nicht eingegeben zu werden. 
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REGISTER 
[Ro j no 


12.2 18: 22211 
Rı Ps Iooa 


£_ PAUSE | 
STO1G 

Oo 
RCL 2 


HP-25 Program Form 


Titel ____"BINOMIALVERTEILUNG” 0. Oo. ’gähte 


2 ANWEISUNG TASTEN 
Progrann eintästen ER Dr ren ESSEN \ 

Vorbereitungsschritt. R Br [Le IEres II |l 3] Rn 
Werte speichern ro  LsmoJLe IL I] 


gegebenenfalls I e) u | sTO ET Er = 
Programm starten N [es] _ 1] (a 
€ Für eine neue Rechnung. yo . | EEE mE men 
ehen Sie nach 2 | I | | | 


eu. a 
2 I RE nr en 
a er ee 

| RES nee ns Fran 

Spar N rn 


Ma Pe Den ee 
Sr Tee 
e Er Sn en 
BE N I Sr ra ee 


Berechnen Sie die Wahrscheinlichkeit, daß beim Roulette in 
hundert aufeinanderfolgenden Ausspielungen 

a) keinmal die Null 

b) mehr als dreimal die Null 

ausgespielt wird. 


Lösung: 
Die Wahrscheinlichkeit, daß bei einer Ausspielung im Roulette 


die Null erscheint, ist 1/37. 

a) Bj00;1/37(X=0) = 0,0646 

b) Bj00; 1/37 (4% X<€100) = 0,2856 
Der Rechner benötigt eine Rechenzeit von mehr als zwei Minu- 
ten. Schneller hat man die Lösung, wenn man die Gecenwahr- 
scheinlichkeit berechnet. 
B100;1/37(4$X&100) = 1-Bj00,1/37108X%3) = 1-0,7144 = 0,2856 
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"POISSONVERTEILUNG" 


Die Poissonverteilung wird auch als "Verteilung seltener Ereig- 
nisse" bezeichnet. Für große n und kleine p stellt sie eine gute 
Näherung der Binomialverteilung dar. 


Die Poissonverteilung ist definiert durch 


In der Praxis wird man hinreichend genaue Ergebnisse für n»30 
und p<O,1 erhalten. Man bezeichnet A:=n-p als Parameter der 
Poissonverteilung; Aist gleichzeitig der Erwartungswert der Ver- 
teilung. 

Beispiele für die Anwendung der Poissonverteillung sind die 

- Verteilung von Druckfehlern pro Seite in Büchern 

- Verteilung von Unkrautsamen in der Samentüte 


- Verteilung der Feueralarme pro Tag in einer Großstadt 
Damit das Programm auch für k=O anwendbar ist, ist die Abfrage(3) 


erforderlich. Vorher wird aber A abgerufen, damit für die Potenz- 


bildung ak Programmschritte gespart werden. 
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START 


AUSGABE 
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REGISTER 


pP 
2 Rz 
k Po; 


TASTEN 


HP-25 Program Form 


Tier ____"POISSONVERTEILUNG” u... 


NR. ANWEISUNG WERTE 
[N 
1 Programm eintasten 


2 Werte eingeben 


3 Programm starten 


4 Für eine neue Rechnung 


gehen Sie nach 2 


BEISPIEL: 

An einem Sommerabend wird durchschnittlich aile 10 Minuten eine 
Sternschnuppe beobachtet. Wie groß ist die Wahrscheinlichkeit da- 
für, daß in einer Viertelstunde mindestens zwei Sternschnuppen 


beobachtet werden? 


Lösung: 
wir nehmen an, daß die Zufallsgröße X, die die Anzahl der Stern- 


schnuppen während einer Beobachtungszeit von 15 Minuten angibt, 
eine Poissonverteilung besitzt. 
Als Parameter verwenden wir aufgrund der Tatsache, daß im Mittel 
alle 10 Minuten eine Sternschnuppe beobachtet wird die Zahl 

= = = 1,5. 
Damit erhalten wir 
P,,5 (X>2) = 1-P,,5 (X=0)-Pj ‚5 (X=0) 


Tasten Anzeige 
Für P],5 (X=0): 1,510 _R/S 0,2231 
Für Pı,5 (X=1): 1.51 1 R/S 0,3347 


Die Gesamtwahrscheinlichkeit ergibt sich zu etwa 448. 


2.’6T..2 


"GRÖSSTER GEMEINSAMER TEILER UND KLEINSTES GEMEINSAMES 
VIELFACHES ZWEIER NATÜRLICHER ZAHLEN” 


Das vorliegende Programm benutzt den Euklidischen Algorithmus 
zur Bestimmung des ggT zweier natürlicher Zahlen, wie er zu- 
nächst am Beispiel der Berechnung von ggT(50,18) vorgeführt 
wird: 

50:18 = 36 Rest _14 


18:14 = 1 Rest__A4 


ee 


14: 4 = 3 Rest __2 


Das Verfahren bricht ab, sowie der Rest Null wird; der vorletzte 


Rest ist der gesuchte größte gemeinsame Teiler. 


Die Berechnung des Restes r wird durch r:=amodb (erste Zeile 


des Beispiels: 14=50 mod 18) bezeichnet. 


Der obere PAP liefert ein schönes Beispiel, wie ein an und für 
sich korrektes Programm wegen der Rundungsfehler am Abbruchkri- 
terium (3) (r=0?) scheitern kann. Man vergleiche die vorgeführ- 


ten Beispiele. 


Im unteren PAP ist diese Schwierigkeit durch die Anweisung (4) 
(Addition von 0,5 und Abschneiden des Nachkommateils) überwun- 
den, so daß r stets eine natürliche Zahl ist, und das Abbruch- 


kriterium nach endlich vielen Schritten erfüllt ist. 


Das kleinste gemeinsame Vielfache von a und b wird berechnet 
über die Beziehung ggT(a,b) -kyV(a,b)=a-b und steht am Ende 
der Berechnung im Y-Register. 
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START 


EINGABE 
a b 


AUSGABE 


r:=int(r+0,5) 


AUSGABE 


Y: kgV 
x: agT 
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Eee ZEILE _| CODE TASTEN 
on WANDEL 
oı | 2302| sto 
1 02 21| xır 
03 | _23 o1| sıo 
04 24 o1| rcı 
05 24 02| rcu 
2 [6/5] 71| * 
i 07 15 01| g FRAC 
[612] 24 02| RCL 2 
z _.09 ___\.__ell x 
3 10 15 71| qg x=o 
u. 13 17| gro 17 
ı2 1 2a 02] rcı 2 
13 23 Ol| sSTOo I 
4 14 21| xıy 
15 23 02| sro 2 
j | ı6___| 1304| gro 04 
5 17 24 02| RCI. 2 
18 13 00| gTo_00 


CODE |TASTEN 


DE 


g x=0 
GTo 23 
ReL2 | 
sto I 
XrY 

s5sTo 2 


_GTOo 00 


HP-25 Program Form 


Tuel __ "GRÖSSTER GEMEINSAMER TEILER ZWEIER ZAHLEN” ______Seite GG 
_(BEIDE_VERSLONEN) ____ 


en ne Bar aa aa a een = 


NR. ANWEISUNG WERTE TASTEN ANZEIGE 
1 [programm eintascen | IL IL I] 


4 (nur 2.Version) CS ZU | | EN | | kgV (a,b 
5 |Für eine neue Rechnung a [ LIE Il | eh 
gehen Sie nach 2 Zr en | I Il Il | ; 2 


BEISPIELE: 


1. Berechnen Sie mit dem ersten Programm (oberer FAT) den gg’ 
a) von 18 und 27 
Lösung: 18 ft 27 R/S Anzeige: 9 


b) und von 12 und 9 
Lösung: 12 1 9 R/S liefert keine Lösung wegen der 
Rundungsfehler des Rechners. 
Nach knapp 90 Sekunden Rechenzeit bleibt der Rechner mit 


einem falschen Ergebnis stehen. 


2. Berechnen Sie mit dem zweiten Programm (unterer PAP) qggT und 
kgqV von 12 und 9 
Lösung: 12 ? 9 R/S Anzeige: 3 (ggT) 
nıy 36 (kgV) 


"ADDITION UND SURTRAKTION VON BRÜCHEN” 


Bei der Berechnung der Summe zweier Brüche wird zunächst der 


a,c_ ad+bc 
b d bad 


der mit a und der Nenner in (5) wieder mit b bezeichnet wird. 


Term berechnet; wobei der Zähler in (3) wlie- 


Da das Ergebnis in der gekürzten Form ausgegeben werden soll, 
werden in (4) und (6) die Absolutbeträge von Zähler und Nenner 
gespeichert und in (7) der größte gemeinsame Teiler von Zähler 
und Nenner berechnet. 


Da der Programmabschnitt (7) in dem Programm "Größter gemein- 
samer Teiler und kleinstes gemeinsames Vielfaches zweier na- 
türlicher Zahlen" ausführlich dargestellt ist, wurde hier zur 


Entlastung des PAP auf eine Aufgliederung verzichtet. 


In (8) erfolgt das Kürzen des Bruches und Ausgabe des Ergeb- 

nisses: Der Zähler wird kurz angezeigt und findet sich dann im 
Y-Register, der Nenner im X-Register. Falls erforderlich, kann 
durch Drücken von X?Y der Zähler nochmals abgerufen werden. Vor 
der Addition eines weiteren Bruches muß dann die Taste XtY er- 


neut gedrückt werden. 


Subtraktion erfolgt durch Vorzeichenwechsel im Zähler des zwei- 
ten Bruches. 
Das Programm ist auch für "Kettenrechnungen" brauchbar, wie in 


Beispiel 3. vorgeführt wird. 
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START 


ao" rl 


AUSGABE 
"ya 
X: b 


= 51. 


REGISTER 


RET, 
RCL 5 


g FRAC 
RCL 5 
x 


E INT 
g x=0 
Gro Al 
RCL 5 
sto A 
xXiYy 

sto 5 
Gro 24 
RCL 5 
STO+O 
sTO+l 
RCL O 
£f PAUSE 
RCL 1 
GTO_04 


HP-25 Program Form 
Tireı _"ADDITION UND SUBTRAKTION VON BRÜCHEN” seite 


Programm eintasten 
Verbereitungsschritt 


l.Bruch eingeben 


Nenner b 


2.Bruch eingeben 
für Addition zähler c 
für Subtraktion zähler c : 


Nenner d 


Ergebnis ablesen 


zähler | 
heit — 


Für weitere Addition 


oder Subtraktion von 
Brüchen gehen Sie nach 

la (Pie Reihenfolge der 

Istackregister darf in 5 


nicht verändert werden) 


In: 


Für eine neue Rechnung 


gehen Sie nach 2 


Berechnen Sie 


1.1 1_ 
agent 
Lösung: Tasten Anzeiae 
ı12 R/S 1 
113 R/S *5 6 
Ergebnis: 1 ri ee -) 
2 3% 
2%. 10.52 
3% 35 
Lösung: Tasten Anzeige 
11230 R/S 1 
11 cHs ft 25 R/S #61 150 
Ergebnis: 1 _ 11 _ _ _61 
30 25 150 
3.1 1 3 5 _ 
Ph Bu Aa 
Lösung: Tasten Anzeige 
11 2 R/S 1 
11 3 R/S *s 6 
3 cHSt 4 R/S “1 12 
5 cHSt 6 R/S *_73 4 
Ergebnis: 1,1_3_32__3 
2 4 6 4 
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"LERNPROGRAMM MULTIPLIKATION (ADDITION/SUBTRAKTION)” 


Bei diesem Programm handelt es sich um eine erweiterte Version 
des in der Sammlung von HP ausqgegebenen Lernprogramms. Dabei 
wird das Minimum m in der Aufgabenstellung noch erreicht, das 
Maximum M wird nicht erreicht. Für das kleine Einmaleins bei- 
spielsweise ist m=O und M=11 zu wählen, um Aufgaben im Bereich 
von O-O bis 10-10 zu erhalten. Der größte für M zulässige Wert 
ist M=100. 

Die Anzahl der richtigen Antworten wird im Procrammteil (12) 
als Vorkommateil und die Anzahl der falschen Antworten im Pro- 
grammteil (11) als Nachkommateil in Register 7 abgespeichert 
und im Progqrammteil (7) kurz angezeiat. Es handelt sich hier- 
bei um eine ähnliche Kopplung zweier Werte, wie sie bei (8) 
zur Stellung der Aufgabe vorgenommen wurde. 

Selbstverständlich kann Schritt 34 ersetzt werden durch den 
Leerbefehl qg NOP und die Leistung des Lernenden nach einer vor- 
gegebenen Zeitspanne durch Abruf von Speicherinhalt R, über- 
prüft werden. 


Wenn Programmschritt 39 ersetzt wird durch +], so erhält man 


ein Lernprogramm zur Addition. 


Ersetzt man Programmschritt 39 durch], so erhält man ein Lern- 


programm zur Subtraktion. 


Zum Lernprogranm zur Division läßt sich das Programm nicht ab- 
wandeln, da durch Rundungsfehler des Rechners richtige Antwor- 
ten durchaus als falsch registriert werden können. Zum anderen 
sind die erzeugten Aufgaben als Kopfrechenaufgaben in der Regel 


nicht geeignet. 


Bei (2) und bei (4) wird eine Zufallszahl aus dem Intervall (0,1) 
erzeugt, hieraus durch (3) und (5) eine natürliche Zahl aus [m,M) 


gewonnen, wie sie zur Erzeugung der Aufaabe aebraucht wird. 


- 60 - 


START 


AUSGABE 
AUFGABE 
P-Q=? 


EINGABE 


ANTWORT A 
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REGISTER 


Ra a R, r 
Rı M . Ro o 5 
% m In ra 
Rz a B nr R.F 


ar 


23 03 


sto 3 


24.00 
15 73 
15 02 


RC O 


gt 
2 


g x” 


61 
15 ol 
23.00 


24 03 


HP-25 Program Form | 


Tiret „ LERNPROGRAMM MULTIPLIKATION (ADDLTION/SUBTRAKTION)” seite 


_.. „mit Anzeige Richtig/Falsch_und_Vorgabe von Minimum und Maximum._._ PER. 

4 

ANWEISUNG WERTE TASTEN ANZEIGE! 
1 |Programm eintasten I En | He 
vorberestungsschrite | [tree IE] 
Zufallszahl speichern s (eb IE] 


Hinimin -spelähern I aan 
Programm starten [r/s ILL IE I 
Anzeige Rieneiafrälsen |“ u u FE I JE IE 3 Rp) 
Stellung der Aufgabe ee | | ee P.Q 

et. re EI Feen 


eingeben und bei anwes-| po [| | | 1 1) 
en 5 fortfahren 0 ze Tr en Er en Dun 2 


Zum ‚Beginn einer hehen IB - er (BEE EEE | ae | pen | Ge 
\ufgabenserie bei 2 IL IL IL IE] 


fortfahren I a ee re er a 
Zur Änderung von Maxi- er m KABE: 
mum und/oder Minimum I RER U | EEE | EEE | EEE gez: 
ee ee |. zn ee er 
a pe | 7 a 
i I EN, ine | Haan EEE | Bert EBEN 
ae en Beer 
ps ee 
i BEE u | en re 
Ba ee Br ee 
lee ee] 
Anmerkung: | 00 EL T 
Die Reihenfolge der | ___..__ | N a . 
ee rn u men 


SEE Ben mn 


62.8 


BEISPIEL: 


1. Programm eintasten 
2. Anfangswerte speichern 
s = 0.1 sTto oO 


M=12 STO 1 
m=2 sTo 2 
Anzeige R.F Aufgabe 
R/S (0.00) 9.11 
99 R/S (1.00) 2.05 
10 R/S (2.00) 3.10 
13 R/S 3.10 
30 R/S (3.01) 5.10 


3. Zur Abänderung zum Lernprogramm Addition Schritt 39 durch +] 
ersetzen und bei Anweisuna 2 beainnen. 
4. Zur Abänderung zum Lernprogramm Subtraktion Schritt 39 durch 


ei) ersetzen und bei Anweisung 2 beginnen. 
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"LERNPROGRAMM DIVISION MIT ANZEIGE RICHTIG/FALSCH” 


Anders als bei dem Programm aus der Sammlung von HP werden hier 
die Divisionsaufgaben als Umkehrung von Multiplikationsaufgaben 
erzeugt. Dadurch "gehen die Aufgaben auf", die Ergebnisse sind 
also stets natürliche Zahlen. 

Durch Speichern einer Zahl M in Rı wird eine obere Schranke für 
den Divisor Q und das Ergebnis P der Aufgabe festgelegt. Wenn 
Sie beispielsweise für M den Wert 9 speichern, so tritt bei den 
Aufgaben als größtmöglichster Wert des Divisors und des Ergeb- 
nisses der Wert 10 auf. 

Dies wird durch Programmsegment (3) bzw. (5) bewirkt. Hierdurch 
werden gleichzeitig, anders als beim Arithmetik-Lernprogramm von 
HP Divisionsaufgaben mit O und auch mit 1 vermieden. Ebenso wer- 
den keine trivialen Aufgaben erzeugt, bei denen eine Zahl durch 


sich selbst dividiert werden soll. 


vor Erzeugung einer jeden neuen Aufgabe wird durch (1) die Anzahl 
der richtig gelösten Aufgaben als Vorkommateil und die Anzahl der 
falsch gelösten Aufgaben als Nachkommateil angezeigt. 


Im übrigen gelten dieselben Erläuterungen wie zum Lernprogramm 
Multiplikation. 
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START 


=E4 
E.Q:=E+750 


AUSGABE 
AUFGABE 
E:Q=? 


EINGABE 
ANTWORT A 


REGISTER 


RCL 7 
£_ PAUSE 
[Ren o 
qgT 


g x? 


£ INT 
sto_5 
RED O 
gt 

g x? 
x 

g FRAC 
„STO_O 
RCL 1 
x 


2 
F 
£ 


23 51 07 
13 O1 


STO47 
STE ON 


HP-25 Program Form 


Titel _"LERNPROGRAMM DIVISION MIT ANZEIGE RICHTIG/FALSCH” ___Seite 


ANWEISUNG WERTE TASTEN ANZEIG 3 


inseben 


Maximum eingeben 


erbaräitüngsschkitt 


Divisionsaufgabe ziel 
den 5 iv 
Antwort eingeben und 
erneut starten : 
War die Antuere ENTE 
so blinkt R.F(d.n. ine. 
zahl riehtige/falsche. 
Antworten) und neue 
Dis sionssüfgäne: ira 
erzeugt. ze j 
Bei. falscher AnBRÖLE 
wird dieselbe Aufgabe X 


SEneut gestellt. 


Fortfahren bei 6 


Für "eine neue > Aufgaben 


serie beginnen Sie bei 


Erzeugen Sie eine Serie von Divisionsaufgaben mit den Werten 
s = 0,5 und M = 20 


Vorbereitung: 

£ REG 0,5 STOO 20 STO 1 { PRGM 
Anzeige R.F Aufgabe 

R/S (0.00) 120.20 

6 R/S (1.00) 42.06 

7 R/S (2.00) 126.18 

7 R/S (3.00) 72.18 

6 R/S 72.18 

4 R/S (4.01) 119.07 


Erhöhen Sie den Schwierigkeitsgrad der laufenden Aufgabenserie 
durch neue Wahl von M = 30 


Vorbereitung: 
30 STO 1 Rt 
Anzeige R.F Aufgabe 
119.07 
17 R/S (5.01) 56.14 
4 R/S (6.01) 667.23 
27 R/S 667.23 


29 R/S (7.02) 36.03 
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"NOTENGEBUNG" 


Das Programm berechnet bei bekannter Fehlerverteilung - z.B. in 
einem Deutschdiktat oder Lückentest - nach Vorgabe einer gewünsch- 
ten Durchschnittsnote ® zu jeder Fehlerzahl x; die zugehörige 


Note N(x,;,) aus. 


Die Fehlerverteiluny sollte etwa normal verteilt sein, um zu 


brauchbaren Ergebnissen zu führen. 


Zunächst wird die durchschnittliche Fehlerzahl x berechnet und 
rc ! 
Standardabweichung S = [= . LixyeX) ermittelt. 


Die Note wird über eine Standardisierung (Berechnung von SE ) 


berechnet nach N({x ) = 9 + Si “ 
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REGISTER 


x IR4 
5 R, 
17) R, In;xi=:q 
In, R, In,x;=:p 
et CODE }TASTEN 
N _ 0. WITLNLLL 
1 ol 21 I xıy 
|. .02__|23 51 03 | STo+3 _ 
03 21 I xıy 
2 oA Gl|x 
05 23 51 n7 | sTo+7 
= 06° 14 73] FrAaSı« 
3 07 64.|=%X 
| > 08 __|23 51 06 | STO+6 
09 24 2 3 
4 
|___10.._|___13_00 | gro _00 
11 2302| sTo 2 
ANZEIGE 5 12 1a 22| fs 
13 2301| sol 
ae 1a _ 1a 11 ol era 
6 15 1a 21| fx 
3 ö as 16 23 oo| sro 0 
a ALT zur Eingabe eines 7 T7 eatRis 
neuen Zahlenpaares (n;;x;) tg] root Reno 
Sonst - GTO 11- weiter 19 “ A 2 
Baia 20 2a ot | rev 1 
8 21 71) + 
22 2a 02| RCL 2 
23 51) + 
__1.24 | 14.11 00| £FIXO 
a | 25_| 1317| sro 13 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
---- {rarr zur Eingabe 37 
der Fehlerzahl x 38 
39 
40 
Al 
42 
43 
44 
45 
an 
47 
AB 
49 
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HP-25 Program Form 


Eile NOTENGEBÜNG © Ze sse cc Ba ans nn ne: 


| TASTEN 


Programm eintasten 
Vorbereitungsschritte 
Anzahl 
und Fehlerzahl 
geben 
4 (Anweisnng 3 [ür alle 


auftretenden Fehler- 


zahlen wiederholen 

5 Gewünschten Durch- 
schnitt eingeben . 
Anzeige: Durchschnitt- 
liche Fehlerzahl 

6 Notenberechnung: 
Fehlerzahl eingeben 
Ausgabe: Note bei ein- 
gegebener, Fehlerzahl. 

7 Anweisung 'e für alle 


auftretenden Fehlerzah- 


gen wiederholen: 


8 |Für eine andere ge- 


wünschte Durchschnitts- 


note fortfahren bei ! 5) 


BEISPIEL: 


Beil einer Klassenarbeit ergab sich folgende Verteilung 


Anzahl 2|0o|1[|12}4|6!5|3)1)0 1 oo 


Fehlerzahl oI1|12|3]|4]5|/6|7]|8]|9}10[ 1112 


Es wird ein Notendurchschnitt von 8 = 3,1 gewünscht. 


Nach Durchführung des Vorbereitungsschrittes (2) tastet man ein: 
2 10 R/S 
1 2 R/S 
2 3 R/S 


8 R/S Anzeige 
10 R/S 3,1 GTOo 11 R/S 4.9 

R/S 
R/S 
R/S 
R/S 
R/S 
P/S 
R/S 
R/S 
R/S 
9 .R/S 
10 R/S 
11 R/S 
12 R/S 


PER EEE 
_ 


oa na u mw N 0 
ve» .220uvvnNnDK - 


aoaı 


Damit ergibt sich folgender Notenvorschlag: 


1 2 3.1674 T 8 u 
o-1 2-3 | 4-5 | 6-8 | 9-10 | 11-12 


Note 


Fehlerzahl 


Er re 


"ABESSINISCHE MULTIPLIKATION” 


Hier wird ein Verfahren zur Berechnung des Produktes zweier Zah- 
len an einem Beispiel vorgestellt, das auch unter dem Namen 
"Abessinische Multiplikation" bekannt ist. 


Das Produkt 18-25 kann nach folgendem Schema berechnet werden: 


18 25 


Das Verfahren ist gut geeignet, den Weg über Problemanalyse, Pro- 


grammablaufplan zur Programmerstellung aufzuzeigen. 


Man erkennt, daß der eine Faktor ständig halbiert wird (unter 
Vernachlässigung des Restes) und der andere Faktor ständig ver- 
doppelt wird. Zur Berechnung des Produktes werden diejenigen 
rechts stehenden Zahlen addiert, bei denen der linke Nachbar un- 
gerade ist. 

Die mathematische Analyse ist mit Hilfe der Dualzahlen sehr leicht 
möglich. 
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REGISTER 


P Ry 
a Rz 
b Ra 

Rz RJ 


START 


EINCABE 
a b 


TASTEN 


TEIL ZEILE], CODE 
0 ZH 


g FRAC 
q x=-0 
Gro_12 
RCL 1 
STO1O 
RCL 2 
2 
sToxl 
£ INT 
sto 2 


- 3 - 


HP-25 Program Form 


Titel ___. "ABESSINISCHE MULTIPLIKATION” _..._ 


ANWEISUNG 


3 |Programm starten 


eue Rechnung 


gehen Sie nach 2 


BEISPIEL: 


Berechnen Sie das Produkt 18-25 


Lösung: 

Tasten Anzeige 
18 STO 1 

25 STO2 R/S 450 


Der Rechner braucht zur Berechnung des Produktes fast 


5 


sec. 


Man bedenke aber, daß damals unser heutiues Verfahren zur 


schriftlichen Multiplikation nicht bekannt. war. 
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"SPIELDAUER BEIM TONBANDGERÄT REVOX A 77" 


Die Abhängigkeit zwischen Zählwerkstand x, und Spielzeit t; bei 
der Revox A 77 wird durch die Funktion t/saxt+bxı beschrieben. 
Dabei wurden a=8,653-10-6 und b=2,836-10-2 empirisch ermittelt. 
(Bei anderen Tonbandgeräten dürfte eine ähnliche Abhängigkeit 


mit anderen Faktoren a und b bestehen) 


Das Programm berechnet die Spieldauer eines Stückes, wenn die 
zählwerkeinstellungen x; und x, am Anfang bzw. Ende bekannt sind. 


Die Abweichung ist in jedem Falle geringer als 20 sec. 


Vor Eingabe von x; und x, erfolgt in (1) das Abspeichern von a 


bzw. b durch das Programn. 


Die Struktur des Programms ist sehr einfach und bedarf wohl kei- 
ner weiteren Erläuterung. 


Das Programm gilt für eine Geschwindigkeit von 19 cmsec-!. Für 


1 


9,5 cmsec"' sind die ermittelten Zeiten zu verdoppeln. 


- 76 - 


START 


a:=8,653-10°6 4 Ro 


b:=2,836-10°2+R} 


ee {HALT zur Eingabe von 
x] und x7 


&t:=H.MS(A tt) 


AUSGABE 
At 


IE = 


REGISTER 


R., a Ra 
R, b Rs 
R> xı Rg 
Rz x, [9 
TEIL | ZEILE | CODE |TASTEN 
VII _ WIILIINILLEL 
nn I Tor |R 
02 731. 
03 06 | 6 
04 05 15 
05 0313 
06 33 EFX 
07 06 | 6 
08 32 | cHs 
1 09 23 m |sto o 
10 02|2 
11 73, |-% 
12 oa | R 
13 0313 
14 06 | 6 
15 33 | FFX 
16 o2|2 
17 32 | cHs 
19 23 01 | sto i 
BREREN 19 ra | Rr/s 
{ 20 |773 an 2 
2 21 22 |R+ 
22 23 03 | STO_3 
er Meoa 
2A 24 00 | RC O 
25 Atl|x 
3 26 24 o3 | Rcu 3 
27 24 O1 | ReL I 
28 6 |x 
Li ER IAIBN| ERBFBIE> ie) 15: RER 
30 2A 00 | RCL O 
31 24 02 | RCL 2 
32 1502 |q x? 
A 33 el |x 
34 2A Ol |RCL I 
35 24 02 | RcL 2 
I6 61l1x 
211337 | BIWESE 
„18 a]- 
“ 39 15 03 |g ABS 
a an "TA oo | Fn.Ms 
ze] A 13 19 |Gro 19 
FE: ae BER. 
13 
aA 
45 
46 
47 
an 
49 


HP-25 Program Form 


Titet __ "SPIELDAUER BEIM TONBANDGERÄT REVOX A77"_ seite 
ANWEISUNG WERTE TASTEN ANZEIGE 


1 Programm eintasten | LI j v 
2 Vorbereitungsschelte er [ ][premn |ER/s_ |] 03 
kr Beide a nstel- x2 = IES3JE 37 ® . 
K | Fuc kinacheithee Be SE BE Benin 
nn gehen Sie | | U KIE 
nach 3 ee (re re 


BEISPIEL: 


1. Nach dem Durchlaufen des Originalbandes von Revox war der 


zählwerkstand 2085. Wie lange spielt das Band? 


Lösung: 

Tasten Anzeige 
£f PRGM R/S 0.03 

oO t 2085 R/S 96.44 


Antwort: Das Band hat eine Spieldauer von 96 min 44 sec. 


2. Ein Musikstück läuft von 1311 bis 1998. Wie lange dauert es? 


Lösung: 
Tasten Anzeige 
1311 # 1998 R/S 39.09 


Antwort: Das Musikstück dauert 39 min 9 sec. 


2798 


"TELEFONGEBÜHREN” 


Das Programm berechnet nach Eingabe der Dauer einer Einheit in 
Sekunden ständig die angefallenen Telefongebiihren und zeigt sie 


in Abständen von ca. 1 sec. an. 


Im Programm wird zunächst die Dauer D einer Einheit abgespeichert 
(Teil 1) und in Teil (2) der Faktor 3600:D, der in Teil (7) ge- 
braucht wird in R, gespeichert. In Teil (3) wird der Summand 
t=0,000358 in R, und in (4) die Kosten je Einheit (hier 0,23 DM) 

in R, gespeichert. 

Die Dauer T des Telefongesprächs ist zunächst O. 

Bei Zustandekommen der Verbindung wird erneut gestartet. In (6) 
wird zur Gesprächsdauer T der Summand t=0,000358 hinzuaddiert. 
Eine Schleife dauert etwa 1,289 sec. Der Zahlenwert t ist 1,289 sec. 
1,289 = 0,000358. Dieser Zah- 


3600 
lenwert kann bei jedem Rechner anders sein und muß für jeden Rech- 


in Dezimalstunden ausgedrückt, also 


ner empirisch ermittelt werden. 

Da die Gesprächsdauer T in Dezimalstunden berechnet ist, wird 
durch Multiplikation von T mit 3600:D die Anzahl A der Einheiten 
in (7) berechnet. Addition von 1 und Abschneiden des Nachkomma- 
teils ist notwendig, da die Post jede angefangene Einheit voll 
berechnet. 

In (8) wird mit den Kosten je Einheit - in der Regel 0,23DM - 
multipliziert und das Ergebnis angezeigt. Danach beginnt die 
nächste Schleife bei (6). 
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START 


EINGABE 


Dauer pro 
Einheit 


3600:D->R, 
3,85.10 ° 


Berechne 
Anzahl der 
Einheiten 


Berechne 


Kosten 


er Sarr zum Starten bei Zu- 
standekommen der Telc- 
fonverbindung 
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REGISTER 


Ru, D Ir 


D 


R,  23,85-10°9 |R, 


TEIL ] ZEILE 


VIII 


24.03 
sl 
_23_96.| 
24 02 
61 
ol 
51 
14 ol 


2A Ol| RCL I 
e1|l x 


14 74| frAUSE 


_13_23| GTo_23 


HP-25 Program Form 


Titel __"TELEFONGEBÜHREN” 0... Seite 


mn 


m er ZIEREURR Arte PRGIRVEPEFRUERLPEFUNERAEHERR, Te et ne Mech che un: — 
ANWEISUNG WERTE TASTEN ANZEIGE: 
in Feet 


Vorbereituimsächkitk ö En | 
u Dauer einer Einheit D j [rs ]L_ IL 7 m [e] 
Bei Zustandekonmen der (| | Er 
u ee a ne ne m 
5 |Rei Ende des Gesprächs | ILL JE IE 9 
während der Anzeige LIDL III 
6 Für SaR neues Gespräch v IE IH IL] 


ER EN ee en a | m 

DEN Dee u re en FF 

i N ER ee | ae! EEE 
DR, Be we El ER 


BEISPIEL: 


Instruieren Sie den Rechner, daß er die Kosten eines Telefonge- 


sprächs (tagsüber) zwischen Koblenz und Aachen anzeigt. 


Dem amtlichen Verzeichnis der Ortsnetzkennzahlen für Koblenz ent- 
nimmt man, daß äie Sprechdauer fir eine Gebühreneinheit tagsüber 
12 sec. ist. 


Nach Drücken von f PRGM erfolgt 
12 R/S und bei Zustandekommen der Verbindung 
R/S und der Rechner zeigt in Abständen von 


ca. 1,3 sec. die anyefallenen Telefon- 
gebühren an. 
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